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1 . INTRODUCTION 


Because of specific format requirements of the 'On Line Pattern and Recognition 
System' (OLPARS) an interfacing software module is required for off-loading 
the Classification and Mensuration Subsystem (CAMS) Development Data Base. 

This data, which consists of ground truth dot labels and LANDSAT radiance 
values was required in punched card form for use in scientific investigation 
by the Rome Air Development Center in Rome, New York. The purpose of this 
document is to provide for the user a description of this system and instruc- 
tions on how to use it. Section 2 below gives a detailed account of the 
system while Sections 3 and 4 provide operating instructions for users and 
sample runs. 


2. SYSTEM DESCRIPTION 


The purpose of this system is to provide for the user on punched cards, 
ground truth dot label information and corresponding LANDSAT spectral values, 
This information is gathered by three seperate processors, all of which 
are functional on the LARS IBM 370 Virtual Machine Computer via remote 
terminals. 

The first processor, GTDOTS will produce 209 dot labels from a ground truth 
image. In addition to the dot labels, GTDOTS will also give the total 
number of different crop categories and the number of dots in each category. 
This information is stored in an output file on the user's 'A' disk. GTDOTS 
is a simple EXEC file that calls upon 2 existing EOD-LARSYS routines to 
generate the dot labels and associated information. The EOD-LARSYS routines 
GTTCN and GTDDM (Ahlers 1978) are run using regular LARSYS Control Cards. 

This control card file (stored on the users 'A' disk) is automatically 
edited by GTDOTS based on user input. The required input for GTDOTS is a 
LARS tape and file number for any available ground truth image. Output is 
a file on the user's 'A' disk containing the dot label information. Due to 
the requirements ofOLPARS, the routine GTDDM has been modified to produce 
only type 1 dots (instead of the type 1 and type 2 dots) 1 . 

The second processor, LANDMRG, generates LANDSAT spectral values from up to 
5 LACIE segments. This task is accomplished using the EOD-LARSYS program 
DAMRG (Aucoin 1978). DAMRG is also run from a control card file which is 
edited by LANDMRG based upon user input. Input is a LARS tape number and 
up to 5 file numbers (each file number being a LACIE segment), output is a 
file created on the user's 'A' disk containing the merged LANDSAT channels. 

The merging technique used in the DAMRG program is the 'channel merge' option. 
In this sense, merging means not to average spectral values from different 
acquisitions but simply to concatenate the channels. For example, 2 acquisi- 
tions with 4 channels each have the following structure before processing: 

^Type 1 dots are c 1 us ter 1 abel ed dots, type 2 dots are bias correction dots. 


ACQUISITION #1 


ACQUISITION #2 


EZDlI 


fl 2 3 4 


Channels 1 ,2,3,4 


Channels 1 ,2,3,4 


After processing by DAMRG, the 2 above acquisitions are merged and take on the 
following structure: 


12 3 4 


5 6 7 8 


Channels 1 ,2, 3, 4, 5, 6, 7, 8 


Channels 1,2,3 and 4 of acquisition § 2 now play the role as channels 5,6,7 
and 8 after merging. LANDMRG calls upon DAMRG to merge up to 5 acquisitions 
in this manner. This version of LANDMRG is limited to processing 4 channel 
LACIE segements. Like GTDOTS, LANDMRG is an interactive EXEC file that 
prompts for input, the remaining processing is automatic. 


The third and final processor, OLPARS, takes the output files created by 
GTDOTS and LANDMRG, reformats the data, and punches it to cards. The format 
of the punched card output is shown in Figure 4.4. When activated, OLPARS 
calls a FORTRAN program to reformat the data and write it to the user's disk. 
This disk file is then punched and sent to the Remote Spooling Communications 
Subsystem (RSCS) with a status of 'HOLD 1 . At this point, processing is 
complete and the user may return to process additional ground truth and/or 
LANDSAT segments. Similar to GTDOTS and LANDMRG, OLPARS is an interactive 
EXEC file run from a remote terminal. 


Due to fixed output file naming conventions, GTDOTS or LANDMRG should be 
run first and second, followed immediately by OLPARS. This order is necessary 
since each of the three processors (GTDOTS, LANDMRG, OLPARS) will erase 
previous output files before writing the new ones to the user's 'A' disk. 




3. OPERATING INSTRUCTIONS 


3efore starting a terminal session, the user should link to the JSC750 'A' 
disk or to another appropriate minidisk (to be assigned) in order to access 
the necessary modules and text files needed for processing. One such module 
and its associated test file will override to current EOD-LARSYS version 
of GTDDM to generate type 1 dots only. The other modules and text files 
are called directly from OLPARS to reformat the data. To access JSC750, 
use the GETDISK command; 

GETDISK JSC750 191 199 F RR PASS AUCOIN 

To avoid accessing the JSC750 disk every terminal session, users may copy 
the required modules and text files to their own disk directly. The files 

needed are; 

GTDDM MAP 
GTD MODULE 
GTDWR TEXT 
OLPARS TEXT 

In addition to the above files, users must have the two control card files 
on their own disk. These files ('GTDOTS CC' and 'DAMRG CC) may also be 
copied from JSC750 using the COPYFILE command. 

After the above tasks have been dope, the user is ready to begin. First, 
the LARSYSP1 system must be loaded into the user's virtual storage area. Thi 
is done using the IPL command upon entering the CMS environment, i.e. key in 
the terminal 'IPL LARSYSPV . Users at this point should erase any existing 
filenames that are reserved for the proper functioning of this system. These 
are 'FILE FT12F00T, 'FILE FT17F001, and 'FILE FT18F001 ' . 


All three processors begin with the following inquiry: 

TYPE ONE OF THE FOLLOWING TO CONTINUE: 

R - TO BEGIN PROCESSING 
I - FOR COMPLETE INSTRUCTIONS 
EXIT - TO EXIT AT ANY TIME 

Until either R or I or EXIT is entered from the terminal, the inquiry is 
repeated. If R is entered, processing will commence, if I is entered, brief 
Instructions similar to Section 2 above will be displayed at the terminal, 
and if EXIT is entered, a return is made to the CMS environment. 

3.1 GTOOTS 

When processing commences, GTDOTS will ask the following from the user: 

ENTER TAPE NUMBER FIRST AND FILE NUMBER FOR THIS IMAGE: 

If the user input here is not equal to two numbers, (a tape and file #) the 
following error message is displayed: 

WRONG INPUT OR WRONG FORMAT ... TRY AGAIN 

Until either a tape and file number or EXIT is entered, this cycle will 
repeat. When this step has passed, GTDOTS will edit the control card file 
'GTDOTS CC' and begin processing. If this control card file is not on the 
user's 'A' disk, and error message is displayed and execution is terminated. 
Also, if the output file 'FILE FT18F00V is not on the temp ( ' D ' ) disk after 
EOD-LARSYS has finished, an error message will be written to the terminal. 

A sample run using GTDOTS is shown as Figure 4.1. 


3.2 LANDMRG 


When Initiated, LANDMRG v/ill prompt the user for a tape and file number(s): 

ENTER TAPE NUMBER AND FILE NUMBER(S) ; 

No Input or more than 6 numbers (1 tape # plus 5 file #'$) will result In 
the following error message: 

WRONG INPUT, WRONG FORMAT, TOO MANY, OR TOO FEW SITES ENTERED ... TRY AGAIN 

After this step, LANDMRG will edit the control card file 1 DAMRG CC' and begin 
processing, If this control card file Is not on the user's 'A' disk an 
error message is displayed and execution is terminated. In addition, if the 
output file 'FILE FT12F00V is not on the temp {'D') disk after processing, 
an error message is displayed at the terminal. A sample run using LANDMRG 
Is shown as Figure 4.2. 

3.3 OLPARS 

This final processor will take the 2 output files 'FILE FT12F001' (from 
LANDMRG), and 'FILE FTT8F00T ' (from GTDOTS), reformat the data and write 
it onto a third file 'FILE FT17F001 * which is then punched. Unlike the 
previous 2 processors, OLPARS requires no user input and is entirely 
automatic. This EXEC file calls upon the program 'OLPARS FORTRAN 1 to 
reformat the data and write it on to the user's 'A' disk as 'FILE FT17F00V. 
Before processing the data, OLPARS checks for the required input files 'FILE 
FT12F001' and 'FILE FT18F001' . If they are not on the user's 'A' disk an 
error message is written and execution terminated. 


4. SAMPLE RUNS 


In the next few pages sample runs displaying the use of GTDOTS, LANDMRG, 
and OLPARS are shown as Figures 4.1, 4.2, and 4.3, Each sample run 
illustrates execution of the respective processor from the CMS environment. 
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CHS 

.1*1 lar'iw'iHi 

CM8 / HGEPP REL 2 02/25/80 14 ! 29 

CHSZER SYS! EM NAME CMSZLR' YSTAT NOT AVAILADLE* 

R» T»O»O7/0* 14 12 5 2/S 20 

tt 

.Htdot'j 

TYPE ONF- OF THE FOLLOWING TO CONTINUE,* 

R - TO BEGIN PROCESSING 
I - FOR COMPLETE INSTRUCTIONS 
EXIT - TO EXIT AT ANY TIMI 

*r 

ENTER TAPE NUMBLR FIRST AND THE NUMBER’ FOR THIS IMAGE? 

,7359 A 

FILENAME FILETYPB FM FORMAT RECS DLKS 
GTDOTS CC A1 F 00 16 2 

EDITS 

READTAPE UNIT«11,FILE»1 
•GTTCN 

READTAPE UNXT*11, F1LE-3 
READTAPE UNIT-1 1 , FILE*3 

AS OF GEPT. 21 EGDLAROYS WILL ACCEPT LANDSAT 1 OR 2 FORMAT 
TAPES , TO READ THESE 1 APES THE FORM CARD MUST SPECIFY FORM 3 
INSTEAD OF 1 OR 2, 

PLEASE CHECK SR T NEWS FOR INFORMATION REGARDING CHANGES 
INCORPORATED INTO EODLARSYS ON FRIDAY AUGUST 21, 

THESE CHANGES EFFECT THE TOLL OWING! 

1) THE SELECT PROCESSOR 

2) THE ISUCLS/TESTSP PROCESSOR 

3) THE LARSYS II OUTPUT TAPE HEADER 


ARE THE EOD-LARSYS INPUT CARDS IN THE CARD READER, ON DISK, 

OR DO YOU WISH TO CREATE OR MODIFY THEM, OR DO YOU WISH TO GET A 
STANDARD SET FROM THE EOD-LARSYS SYSTEM DISK? 

(READER, DISK, EDIT, OR GET) 


WHAT 18 THE FILENAME OF THE EOD-LARSYS INPUT CARDS? 


DO YOU WISH TO RUN INTERACTIVELY AT THE TERMINAL, OR HAVE 
YOUR EOD-LARSYS JOB SENT TO A BATCH MACHINE? 

(INTER OR HATCH) 

DEV 192 DOES. NOT EXIST 

WILL A 10 CYLINDER TEMP DISK SUFFICE FOR YOUR JOD? (YES OR NO) 


AT WHICH SITE DO YOU WISH TO RECEIVE THE PRINTER OUTPUT? 
(AND OPTIONALLY PRINT STATUS) 


Figure 4.1. Sample run of processor GTDOTS using tape #7359, file #3. User 
Input is in lower case, system response is in upper case. 


r 


ORioin ac px G; 


Or 




Ers- 

,'7Y 


WILL YOUR fOB LARSYS JOB Dl USING AN MtJU BATA TAPE Oft HUM (YLS Oft NO) 


TYPE IN MSS SATA TAPE NUMBER Oft PILE NAME (AND OPTIONALLY ENTER 000 

IF TOE TAPE IS 800 UP I) 

U 


DO YOU DESIRE THE TAPE TO BG COPIED TO TEMPORARY DISK 
STORAGE TO ALLOW EARLY RELEASE OF THE TAPE DRIVE? (YES/NO) 


DO YOU WISH TO SAVE ANY INTf RMI.DIAIE RLSUlTS PRODUCED BY 
EOD -LARSYS r Oft UU ANY PREVIOUSLY SAVED UNI 0? (YES Oft NO) 

10000 TAPE 7309 HAS BEEN REQUESTED UN UNIT 181 (TAPMOUNT) 

TAPE 101 ATT ACHED 

10003 TAPE READY * . * EXECUTION CONTINUING (TAPMOUNT) 

YOUR EOD-LARSYS JOB WILL NOW BE ! UK 

EXECUTION BEGINS* . . 

♦GTT ! UNCTION HAS BEEN P* - • • U 

♦GTD FlINCT ION HAS It* - -JESTED 
TAPE tin ON TAPP *.'*•* 

TAU |r*J Dl IT*! IH i* 

DFV J's.- 1 1 : - . , ..1ST 

»<£ V ‘ * NU1 EXIST 

DEV i..; HUES NO i EXIST 

DO YOU WAN I it. t if/ ANOTHER JOD? (YES OR NO) 

FILENAME FILETYFL fn r t. >;A. KEGS BEKS 
FILE FT18F001 Dl E W l.J IV 

* ♦ 'FILE FT18F001 ' HAS BEEN CREATED UN W . BIS!,. * * 

* * IT CONTAINS 009 GROUND TRUTH DOTSpLABLl.br nitf U t . . . - . X % 
R) T=33*42/4<S.Q2 12**32:27 


Figure 4.1 (Continued) 




I 

! 


«•«/#*#* I » .»/ * m/if l* * * 


CMS 

. landmrd 


( *' * 1* 

oi.' pooh ul t ai; rn 


TYPE ONF. OF THE FOLLOWING TO CONTINUE: 
R - TO BEGIN PROCESSING 
I - FOR COMPLETE INSTRUCTIONS 
EXIT - TO EXIT AT ANY TIME 


# r 


ENTER TAPE NUMBER AND FILE NUMBER ( S > t 
, 3934 123 

FILENAME FILETYPE FM FORMAT REGS DLKS 
DAMRG CC A1 F 30 21 3 
EDITS 


DATAPE INPUT/UNIT-llr FILE- 6 

OPTION ANGCOR 

DATAPE INPUT/UN IT- 11, FILE- 4 

OPTION ANGCOR 

DATAPE INPUT/UNIT-i 1 , FILE- 3 

OPTION ANGCOR 

DATAPE INPUT/UNIT-11 f FILE- 2 

OPTION ANGCOR 

DATAPE INPUT/UNIT-11 , FILE- 1 

OPTION ANGCOR 

EDITS 

CHANNEL 1 , 2 , 3 , 4 

DATAPE OUTPUT/UNIT-12, FILE-1 


CHANNEL 1,2, 3, 4 

DATAPE OUTPUT/UNIT-12, FILE-1 

CHANNEL 1,2, 3, 4 

DATAPE OUTPUT/UNIT-12, FILE-1 

CHANNEL 1,2, 3, 4 

[..■TAPE QUTPUT/UNIT-12,FILE-1 

CHANNEL 1,2, 3, 4 

DATAPE OUTPUT/UNIT-12, FILE-1 

edit: 


OPTION ANGCOR 

DATAPE INPUT/ UNl'T-11, FILE- 1 
DATAPE INPUT/ UNIT-11, FILE- 1 
DATAPE INPUT/ UNIT-11, FILE- 1 

DATAF'E INPUT/UNIT-1 1, FILE- 1 

OPTION ANGCOR 

DATAPE INPUT/ UNIT-11, FILE- 2 
DATAPE INPUT/ UNIT-11, FILE- 2 
DATAPE INPUT/ UNIT-11, FILE- 2 

DATAPE INPUT/UNIT-11, FILE- 2 

OPTION ANGCOR 

DATAPE INPUT/ UNIT-11, FILE- 3 
DATAPE INPUT/ UNIT-11, FILE- 3 
DATAPE INPUT/ UNIT-11, FILE- 3 

DATAPE INPUT/UNIT-11, FILE- 3 

edit: 




Figure 4.2. Sample run of processor LANDMRG using tape #39iJ6, files 1,2, 
and 3. User Input is in lower case, system response is In 
upper case. 


r~ 




/ 0 




-■ ■■rii’wy 


f '/'■ i . V '^1,1 
' Vi/ ‘ 


DO YOU WISH TO SAVE ANY INTERMEDIATE RESULTS PRODUCED BY 
EOD-LARSYSf OR USE ANY PREVIOUSLY SAVED ONES? <YES OR NO) 

10002 TAPE 3936 HAS BEEN REQUESTED ON UNIT 181 (TAPMOUNT) 
TAPE 101 ATTACHED 

10003 TAPE READY. . . EXECUTION CONTINUING (TAPMOUNT) 

YOUR EOD-LARSYS JOB WILL NOW BE RUN 

EXECUTION BEGINS... 

*DAM FUNCTION HAS BEEN REQUESTED 
TAPE 101 ON TAPE 404 
TAPE 181 DETACHED 
DEV 182 DOES NOT EXIST 

DEV 183 DOES NOT EXIST 
DEV 184 DOES NOT EXIST 


DO YOU WANT TO RUN ANOTHER JOB? (YES OR NO) 


FILENAME 

FILETYPE 

FM 

FORMAT 

RECS 

BLKS 

FILE 

FT12F001 

01 

V 3060 

12 

7 

FILENAME 

FILETYPE 

FM 

FORMAT 

RECS 

BLKS 

FILE 

FT12F001 

A1 

V 3060 

12 

9 


A FILE 'FILE FT12F001' CONTAINING THE SPECTRAL VALUES OF THE MERGED 
LANDSAT ACQUISITIONS HAS BEEN CREATED ON YOUR 'A' DISK. 

Rt T=10. 37/23. 16 09J59S50 


Figure 4.2 (Concluded) 


CHS 


.oil* air 8 

TYPE' ONE OF TIP .UNO TO CONTINUE! 

R - TO Bf «.r * ' LOSING 

I - FOP i . i i.TL INSTRUCTIONS 
<•‘1’ iu EXIT AND STOP EXECUTION 

. i 

Instructions for using OLF'ARS! 

This exec file is the last step in the OLF'ARS date reformatting 
system. It is entirely automatic and no user input is reouired. 

' OLPAF:? EXEC' will execute a fortran program to read the files 
'FILE FT12F001 ' and 'FILL FT18F001' off the user's 'A' disk* 
reformat the data and write it to an output file 'FILE FT17F001 ' . 
This output file is then punched on cards* with a status of HOLD. 


FILENAXr 

1 • 

FM 

FORMAT REC8 

BLKG 

FILE 

m..; ' 


n/,o 12 

9 

FILENAME 

FILLTYPL 


!■! ’ ‘‘ 

RLKS 

FILE 

FT18F001 

At 

F -h. *'i.3 

22 

EXECUTION BEGINS.. 

• 



FILENAME 

FILETYPE 

FM 

FORMAT RLOtf 

i i 

FILE 

FT 17 FOOt 

A3 

r t,'j .ii.5 


PUN FILE 

,5795 TO 


COPY 01 

HOLD 


Ri T-l . 02/2 . «>y If! •v.uti 


Figure 4.3. Sample run of processor OtPARS. With the exception of the 

Instructions, user input is in lower case, system response is 
In upper case. 


DESCRIPTION OF CARD DECK 

The data deck consists of ncls + 2 cards which describe the data, followed 
by the data cards. 

Card 1: The number, in integer formav, of LANDSAT channels (ndim) for this 
run. 

Card 2: The number, In integer format, of ground truth crop categories 
(ncls) in the data set. 

Cards 3 thru ncls + 2: A four character crop category name (col. 1-4) and 

the number of vectors within this crop category 
(nvec) in integer format, right justified to column 
18. 

The data vector deck: Contains the LANDSAT radiance values with at least 1 

space between each value. 

The example on the next page illustrates a deck consisting of three crop 
categories (nodi, nod2, and nod3). Followed immediately are the correspond- 
ing 125 ten-channel vectors. 


Figure 4.4 - OLPARS deck format. 




5. LISTINGS 


Listings for the FORTRAN Program and EXEC files making up this system are 
presented In the next several pages. The order of the listings are 
OTDOTS EXEC, LANDMRG EXEC, OLPARS EXEC, followed by OLPARS FORTRAN. 



FILE* GTOOTS FXEC 


\ PURDUE / LAOS 3031 


((.CONTROL OFF NOMSG 
-LiO ARFGTYPF 


TYPE ONE OF .. . 

0 - TO hFGIN POO 

1 - row ro^PLETE 


THE FOLLOWING 
- ' ---ICESSING 


TO CONTINUE: 


AEND 


* * law 

TO EXIT 


_ INSTRUCTIONS 
AT any TIME 




TEST FOR forpf.cT RESPONSE 


{ >MiilNAL p, a , 
WPQOR— ' 


quai 


-L20 


NE t AGO TO -LiO 
IT AFX IT 
AGOTO -L30 
AGOTO -L20 
P UFH NF I AGOTO 


-LIO 


EOOLARSYS PROCESSORS 
TRUTH. IMAGE.. INPUT 


AHEAD APGS 
KIF UM'KX .. 

A IF M- = F x I 
A IF AS * P A 
AIF A* = I A 
A IF AS NT P 
A“FGT YPF 

JNSTPUCT I OMS FOR USING GT00TS-, „ _ 

THIS FXFC PROrt'FOUWF XII.L INITIATE 2 
PoOOUCF r ?''y I. AHFLEO OOTS FROM A i»«QUf 

Twtc DDiK'r ccno T ^ A rAPK *• AMI) FILE M uuirm a* » tuw -i 
FTlflFoni* ON THF USERS *A* OISK THAT CONTAINS THE 209 UOTS.LAHELS* 
*Kjr. rpop types. 'HFFoRE PROCEEDING MAKE SURE THE CONTROL CARO FILE 
• 0TDOTS P CC » I S ON " YOUR “a»itIsL,WHEN PROMPTED FOR In|UT 
ENTFR THE T A»E * FIRST ANO THEN THE> FILE A AS FOLLOWS* 

TAPE** FILF# 

WHERE * 

TAPE** a LARS TAPE 
FILE** = FILE « ON 


INI# I ” I * " I # ' '-iVI. * r • ' ’ * 

f* « OUTPUT IS M ILE 


. f8r 
•FILE 


*> IN WHICH THE GROUND TRUTH IMAGE RESIDES* 
THE TAPE FOR A PARTICULAR IMAGE 


FXAMPLFi FOP TAPE ■ 7619 ANO FILE 
SIMPLY TYPE 

7619 13 


a 13* WHEN PROMPTED FOR INPUT 


Yfi FNO FXF'CUTTOM W''£N PROMPTED FOP INPUT* TYPE •EXIT** 

FOR MOPF INFORMATION SEE THE DOCUMENTATION AND FLOW CHARTS 
FOR THIS PROCESSOR. 

-L30 ATYPF FMTEP TAPE NUMHER FIRST AND FILE NUMBER FOR THIS IMAGE* 
APE AD ARGS 




TEST FOP COPPECT RESPONSE 


AIF AS = EXIT AF.XIT , , A 
AIF AINOFX Nfc ? AGOTO -LAO 

-LAn ATYPE V.PONG INPUT OR WRONG FORMAT ...TRY AGAIN 
AGOTO -1,30 


« 


CHFCK TO SFF IF *GTOOTS CC' IS ON THE *A' DISK. IF NOT TYPE ERROR ANO EXIT 


-LSO LIST GTOOTS CC A 

AIF ARETCOnE NF 0 AGOTO -L60 




-L60 




NOW STACK THF EOIT COMMANDS TO FOIT THE ’GTOOTS CC* FILE 

ASTACK (. /UN I T = 1 1 
ASTACK OR. 

astack Vnput RFAOTAHE UNIT=Ilt FILF®62 

ASTACK C/UMIT/ UNIT 
ASTACK C/ FIL/FIL 
ASTACK FILF 
FDIT GTOOTS CC A 

iltvof TMF°rnNTPOI CARO ICC) FILE ’GTOOTS CC* DOES NOT EXIST 
ATYPE ON YOUR *A» DISK. PLEASE CORRECT THIS PROBLEM AND TRY 
ATYPE THIS ROUTINE LATER. 

AEXIT 


STACK THE FOOLARSYS RESPONSES 

-L70 AIF APFAOFLAG = STACK OESBUF 
CONWAIT 
ASTACK DISK 


l 






FILffJ UNOMRG EXEC 


A PURDUE / LARS 3031 


LCONTROI 
-LI 0 LREGTYPF. 


OFF NOMSO 


LEND 


TYPE ONF OF THF FOLLOWING TO CONTINUE.* 
R - TO t-gGlM pK> )fPSSl*m 
I * FOR dOMPiFTF INSTRUCTIONS 
EXIT - TO FX IT AT any TIMg 


« 


LWEAO ARGS 
TEST FOR CORRECT 


RESPONSE 


LIF 

Air 

.IF 


MNPFX Nfc 
L*. * ^XIT 


1 *. 


\ LGOTO -LI 0 
_ LEXIT 
LGOTO -L20 


-L20 


Ur M s H LGQTQ -1.3 0 
MF U NF P MF Ls m I LGOTO -LiO 
LRFGTYPF 
INSTRUCTlOl 


FOR 


USING 

THIS FXFr POOCFtOURF 
LATER usr HTH GROUND . 

THE NAMF if II.F FTIPFOOI* OM Tnf 


LANDMPO.* 

W * 56 


)TH UOT 


UP TO *5 LANDSAT ACQUISITIONS (FOR 
LAPELS) INTO A SINGLE FILE HAVING 

USERS OWN ‘A* DISK. WITH A TOTAL 

0 fc..£_C HAV,>,f LVACU'IIsmON. THIS MFANS UP TO 2 0 CHANNELS WILL BE 
WRITm TO fHE OUTPUT FILE, the REQUIRED INPUT FOR THIS ROUTINE IS 
A TAPF U AND FILE NUMuE«(S)t THEY MUST HE ENTERED IN THE FOLLOWING 
FORMAT WHEN PROMPTED F OR INPUT} 


TAPE* FII.E1 FILFE FII.E3 


<<HERF: 
TAPE* = 
FILEN = 


FILEN 


IS THE TAPE » CONTAINING THE L ANOSAT ACQUISITIONS. 

T S A FILE « ON ThF T4PF, CORRESPONDING TO THE ACQUISITION!! 
UESIRED TO hF MERGED. UP TO 5 FILE NUMBERS CAN BE SPECIFIt 
NOTg: THIS ARRANGEMENT REQUIRES ALL FILE #*S TO BE ON THE 
SAME T APE • 


;> 

D. 


EXAMPLE: YOU WISH TO MERGE the ACQUISITIONS CORRESPONDING TO 
2. A, AND 17 ON TAPE * 7391. WHEW PROMPTED FOP THE 
YOU WOULD TYPES 

7391 2 6 17 


iSfcf 5 


IF AT 4NV TIME WHEN PROMPTED FOR INPUT YOU WISH TO STOP AND EXIT 
THIS PROCESSOR, TYPE. *FXIT* AND YOU WILL RETURN TO THE CMS ENVIRON- 
MENT. FOP MORE INFORMATION SFE THE DOCUMENTAT ION FOR THIS SYSTEM. 

LENn 

-L30 LHFGTYPE 

ENTER TAPE NUMPER AND FILE NUMBER (S) : 

LEND 

LRFAD ARCS 

f.IF Lf c n FXIT LEX IT 
MF f. INDEX » n LGOTO -L30 
MF MNDFX GT A LGOTO -LAO 
LGOTO -(.SO 
-LAO LBFGTYPF 

WRONG INPUT. wRONG FORMAT, TOO MANY. OR TOO FEW SITES ENTERED ...TRY AGAIN 


LEND 


LGOTO -L30 


* CHECK TO SEF IF DAMPG IS ON THE «A» DISK} IF NOT ISSUE ERROR AND EXIT 

-LSO LIST DAMPG CC Al 

LIE ARFTCOnF NF 0 LGOTO -LSO 
LNUM = A INDgX - 1 
LGOTO -1.70 
-L60 LDEGTYPF 

ERPOP-THF PF.OIIIRFD FILE 'DAMRG CC* DOES NOT EXIST ON YOUR 'A* DISK. 
PLEASE CORRECT THE PROBLEM AND TRY THIS PROCESSOR LATER. 


LEND 


* 

* 


LEX IT 

THE NEXT A LOOPS ,£DIT 


THE • DAMRG CC* FILE 


THIS LOOP ERASES ALL OCCURENCES OF THE CONTROL CARD * 1NPUT/UNIT=1 1 . . . • 


-L70 LLOOP 3 5 


LSTACK L /INPUT 
LSTACK DEL 


// 


*r - **' 


•••• • • • ••• 


f 

( 


FILE* LANDMRG FXEC 


M 8W 


PURDUE / LAPS 3031 


e^tt OAMpr, cc a 
MF AfiFAOFI AG EO STACK DESBUF 

THIS LOOP FRASLS ALL OCCURENCES OF THE CONTROL CARO ’CHANNEL i»2*3.A» 

W /N?«3»4 
AST ACK UFL 
AST ACK IJJ 
AST ACK FjLF 
EDIT OAMu-F, CC a 

fclF AREAOFl AG EO STACK DF.SBUF * 

THIS LOOP INSERTS ANUM 'DATAPE INPUT/UNTT*. . . • CONTROL CAROS 

M5L08AL1 = 0 
A OOP R AN' in 

AGLORAU - AGL0BAL1 ♦ l 

AlF*AGLnOALV^= 1 1 AS TACK l./ANGC 

ASTACK L I^UT DAT6PE S INPUT/ , UNIT=11 ♦ FILE = AAF 
ASTACK C / I H°/ INP 
ASTack C/ l NP / INP 
ASTACK C/UJP/ INP 
AST/ CK C/ UN [ /IJN I 
ASTACK FIL P 
EDIT OAMRG CC A 

THIS LOOP INSERTS ANUM 'CHANNEL 
CONTROL CArfO FILE 


1 .2*3.4' CONTROL CARDS INTO THE DAMRG 


AGLORAL l = 0 
SLOOP ANMM 

AGLORAU a ARLORALl ♦ 1 . 

AIF ARIORALI = 1 ASTACK L/OUTPUT 
A IF API. OP AL 1 NE 1 ASTACK U1 
ASTACK IMOUT CHANNEL 1»2»3»4 
ASTACK C/l,?./ ltd 
ASTACK C/1.2/ ltd 
ASTACK FILE 
EDIT DAMPS CC A 

EDITING OF THE CONTROL CARD FILE 'OAMRG CC' IS NOW COMPLETE 


STACK THE f-nnLARSYS RtSPONSFS 

AIF AWE ADFl.AG = STACK DESBUF 
CONWAIT 
ASTACK DISK 
ASTACK DAMuc, 

ASTACK I f'TPR 
ASTACK YFS 
ASTACK HOUSTON 
ASTACK YES 
ASTACK A 1 
ASTACK NO 
ASTACK MO 
ASTACK MO 
EXEC Koni APSYS 

NOW COPY THE FILE 'FILE FT 1 2Fno 1 • FROM THE 'O' OISK TO THE 'A' DISK 

LIST FII.F FT1PF001 0 ^ 

AIF APFTCQOP NF 0 &GOTO -L«0 

LIST F 1 1 F FT1PF001 A . 

AIF APFTCOnE =,, 0 ERASE FILE FT12F001 A 

COPY FILE FT 1 ?F0O I D a * A 

AHEGTYPE 

A FILE" 'EKE FTIPFOni* CONTAINING THE SPECTRAL VALUES OF THE MERGED 
LANDSAT ACOUISI TIONS HAS BEEN CREATED ON YOUP 'A* DISK,, 

AENO 

-LRO ATYPF FOR SOME REASON. EOD - 1 ARSYS DID NOT COMPLE' : ITS JOB. THE 
ATYPE FILE ‘FILE FT12F001 • DOtS NOT EXIST ON THE )» DISK. CHECK 


HLCl LINOMPG FXEC 


A p URDUfc* / LARS 3031 


HYPE IHf phimtep output pop possi«le eppops. 


riLFI 0LPAR5 FXEC 


A PURDUE / LARS 3031 


ACONTROL OFF NOMSO 
-L10 A8EGTYPE 


THF 


PPGJU 


TO CONTINUE! 


AEND 

* 


TYPE ONE OP 

R - TO *FM 

I - FOP COMPLETE INSTRUCT ION*? 

EXIT - TO FXIT ANN STOP FXFCUTION 


TEST FOR CORRECT RESPONSE 
ARFAO APOS 

MF AT. PO FXIT APXIT 


AtNnp.X NF 1 AGOTO -L10 
K% » R AOOTQ -LOO 
A A * i AGO TO -LffO 

AlF A* MF ft UF AS ME I AGOTO -L10 
-L20 IPFOTYPF 

INSTRUCT IONS FOP 
THIS PXPC FILE . . 

IX, F’XFC* wYLL^kxFCUfF ’rt FORTRAN PROGRAM 

•FII P FTIPFOOI ' AND »FILF PT ) ‘•F 001 ' OFF THE USER'S *A* QI?5a aa , , 
REFORMAT THF OAT A A NO WRITE 17 TO AN OUTPUT FILE ‘FILE FT17F001* 
THIS OUTPUT FILE IS THFN PUNCHED ON CAROS . WITH A STATUS OF HOLD 


USING OLPARSt 
is THE Cast 


. . STFP IN .. .. . 
AUTOMATIC _ANi) NO 


THE 


OLP A 

yse 


rmffi&m 


AENO 

• GET THE JSC770 DISK ANO DEFINE THE FILEOEFS HERE 
!l3 " a?g?S;» T 'S? l rI“o r i^ 1 5o0 0 SI!''S U AUCOIN NDBR1MT 

EILEPCF j ? ; ni5 «- . file ft l pE»n i . .. i ^6CF« . u hlock jofioo perm 


LEf>F*F FTISFOAI DISK FH,F FTIBEOOJ A1 (HRf^CL BO BLOCK BO PERM 
LEOFT FTWFftnf DISK F iLt FT17F00I Al (LRECL BO BLOCK BO PERM 


IS TFom (PERM 
A PRINTFR (PERM 


• CHECK FOR 'FILE FT1<?F00)* AND 'FILE FT18F0Q1' ON THE USER'S »A» DISK 

LIST FILF FT1RF001 A , JA 

AIF ARFTfOnE NF 0 AGOTO -L^O 
Af»OTO *l.bO 

-L40 ^f G F11F(S> 'FILE F"T 1 ?FOO 1 • (LANUSAT SPECTRAL VALUES) AND/OR 

♦FILE FT 1 B p 00 1 • (GROUND TRUTH DOT LABELS) 00 NOT, EXIST ON ..YOUR 
•A' DISK. PLEASE CORRECT THIS PROBLEM AND T*Y THIS PROGRAM LATER. 

AENO 

kFX I T 

-LSO LIST F ILF FT If F 1)01 A , 

AIF ARE f CODE NF 0 AGOTO -LAO 

CHECK FOP A FILF 'FILE FT17F001'* IF ONE EXISTS* ERASE IT 

FILE FT.7F.01 « 

NOR BEGIN TO PROCESS THE OATA USING THE PROGRAM 'OLPARS FORTRAN' 

LOAD OLPAPS (CLEAR START 

CHECK TO sf'F TF THF OUTPUT FIL 17 'FRF FT17F0OI* WAS CREATED PROPERLY 
THIS FILE CONTAINS THE REFORMATTED GROUND TRUFH CROP T TPES AND 

• LANDSAT SPECTRAL VALUES 

LIST FII.F FT 1 7F 00 1 A 

AIF ARFTCODE NF 0 AGOTO -LHO 

• NOW PUNCH THF RFFORMATTED DATA 

REMOTE 0 TO HOUSTON 
SPOOL 0 H0| 0 
PUNCH FILE FT17F001 A 
XfeXIT jc 

" Lf, ° FRROP Y - S THF File 'FII F FT17F001* WAS NOT FOUND ON YOUR 'A* DISK 
AFTER EXECUTION. 


# 

# 

U 


# 


* 

# 




I 
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FILE OL***P$ 


w 

0003 

0004 

0005 


000#. 

0007 

0008 

0009 

0010 
0011 


00 

00 

00 

00 

00 


r 

c- 

r 

f 

r 


r 

r 


c 

r 

r 

r 

r 

C 

r 


r 

r 

c 

r 

r 

<* 

c 

r 

r 

c 

r 

r 

r 

r 

c 

c 

c 

r 

r 

C 

r 


p 

c 


OLPARS n ATE * 80105 

PURDUE / LAWS 1031 


11/17/29 


-Ol.o IBS-- 

r.<v* PuwPnsi t>f thj* 

FTf2F>*01» AN.» •FtU 
' i UATA F. “ ‘ 


TH 

a ni 

u s% 


vHM TWF 

!K FlU 'FILE 


pkOCham 
FI HF .01 


! S 




Tl 


ON 


PROGRAM IS CALLfD FROM THE FXFC FILE 'OLPARS EXEC* * 


OLPOOOl 

g t »|P 

ffifA.f E W U T A : 'fcf in . ' ©8885 

. Tl; THIS REFORMATTED DAT* TO OP^og? 
Tnfc USER'S 'A' DISK. 


TO 

OFF 


MAJOR PROGRAM variables. arrays 
variable* array COMMON «lk 


DESCRIPTION 


OLP^OOjJC 
oi-PQog?g 

OLP0O 

sr 

P0<! 


DOTNUM(209> 

10(5) 

I OAT A (380) 

MSSDAT (20*209) 

NCMIN 

NCLS 


NTYPF (26) 


TAPERO 


m 

OLPoll 

mss&pm ^, orou ^ 

V AP I A-lLfc CONTAIN No THE NU^BtH OFOLfOO 
- ‘ 1 UNIT 12) O f 

ANMFLS OF O' 

. . . _ . AL1JES EACH 0 

iP OF CHANNELS 01 

:P OF CROP TYPES (CLASSES) .JNO 
.POUND TRUTH UfiT FILE ’FILE O' 


LANOSAT CHANNELS (FROM UNIT 12) 
AomAY CONTAINING A LINE OF 
SAT SPtCTPAL,, VALUES* AL? 

APmAY *Tth UP TO 2b CHA. 

209 LANOSAT SPl’CTPAL VALUES EACH 0' 

NUMHfcP ,,L ' “ 3 *F‘ e 

NllMWfc ~ 

T hK ft 
FTlflFOoI* 

ARRAY CONTAINING THE 
runp Typ £3 




4 LETTER 


SU Dl3Ecf N pLLR D ASE l4 MA8e K TO S boE2SiA§i?S ROUTINES TAPHIJR* FLO 1 NT 
ANO LINFPI5 



mETHOO USED 

F IpSI^A^L J INFS 


(AND ALL CHANNELS) wITH THE LANDS AT SPECTRAL 

FOOJ* AWE COPIED INTO THE ARRAY 

■b. T hE NUMBER OF CROP . 

0 ALONG with the LANDS AT 

spectral values and written to unit iy (*file ft i 7F oo l • ) on 

ThE USFR*S 'A* DISK. 


VALUES FROM »FII.F FT12F 001 * AWE COP I Ft 
MSsUAT ( I • J) • THEN from FILE FTImFOOV' 
iyrfs* and no r numbers apt pefowmattfc 


(^PoNS loN^HLnCK^h) tF^TVEC ( 3U) « IDATA ( 3G0 ) tMSSOAT (20*209) .NTYREI26) 

S’jAT^P^S^nU^Hlc.'ji^plL.Y. V.T.K.Z*M.X.N*0/M'*'S'« 'O'. »B». 'H*. 
A'C'*»J'*'F'«'P'f»L'*’Y'*'V'**T*.'it'.'/'«»M'.'A'.'N'*'0'/ 

OAT A *HF A * v.'HFS i *HFT « H ARU • H A YS « CORN t SOW” * NUftW «POT A * SUNF *SOYHt 


mi 

OLPOO j 
OLPO^AOO 

olpooaTo 

QLP00420 

OLP00430 

0LP00440 

-OLP00450 

OLP00460 

0LP00470 

OLP00480 

OLPO049O 

8 h 8 S°o S0? 

OLPOO 


lo 


NVt GE.T IMP* SOIL** ATF.MANH.OHbT. NUll). O.-'F /'WHh A « < * *(HES • * » WHET • ♦ ‘HARLOLPOOSSO 
M , * ways * t 'CORN* . ISTWI.* . 'SUfiR* . 'POT A* « SUNF t « • SUYH ' « » VEGE ' • • T IMB • OLPOOgoO 
4. 'SOIL* * "VATF * . *manm* . 'OHST * * 'NOIO' t • OTHE ' / 


immon /T APEwD/IUNTT* IFWST «F SC AN »S AMEND* SAM INC* READY * 
CA\'«L INC* (200) iUSL.LhUF ( 10) * JRFC ( 30 ) *IRYTE(30) * 


COM*- 
ANt 

f.N«-iFs*PiLfND.T"i sFnoVlTnInc.nsAmp;nochan*formt 

l)AT APEsIR 

TALI. TAP«DR(DATAPF.O) 

L • 1 * 1 £ 


hat A FkTVFC/l*2«\i4*5«6*T»ft*9*lO*ll*12*13»14*l5»16*17*18*19*20/ 


OLP00S50 

OLPOOS60 

DLP00S70 

DLPonsao 

mr°- 


__ 10600 
OLP00610 
OLPOObcO 
OLPO063O 
OLP00640 
OLP006S0 
0LP006G0 
OLP00670 
OLP00680 
OLP00690 
OLP00700 

THIS LOOP COPIFS LINES OF SPECTRAL VALUES INTO THE ARRAY MSSDAT(ItJ) 0LP00710 


*iChAN*ID(5) 

NUm=NCHAN*19 

CAUL FLU] Ni (HLDCK.FETVEC.NCHAN) 
OU 9 0 L INF *1 *] 1 

CALL I TNFPO( IOATA.ENDTAP) 

IF (ENUTAP.EO.-l ) W D ITt ( 15*30) 
IF (EnDTAP.EU*-! ) GO TO ISO 


I 


FORTRAN IV G LEVEL 21 

file olpars 


OUPAR5 DATE * B0105 

PURDUE / LARS 3031 


n/ir/29 


Oil 40 I* I, MUM 


n ON UNIT 12*) 

9*I-10)«}DATA(p 

N*i-$A)*{UATA(j) 


GLPOom 

QLPonnc 

S'-P0O74fl 

duPOorsc 


! F . ! . AN 3 , i .t*- * tb J*' >N »AT (.1 . H.K-A-1 ) « 1 N« } -b7 ) UAT A { I ) 

MTT.^It.AN wj.D NnImssDAT lb, (l it- ) 9 * - U) * OAT A ! f > 

FlRh.LE.I.AN.l.I.Lt.l l*> N,»IAT<6.7U.lt-:)«lN*I-9S)»Yt)ArA(l) 

F( 1n.L>- . {.AND. .Lf. J-UMUNHATI?, (Uwt-1 ) * 9.1-114) *JOATA{ I) 
IF( 134, 1.F, .AND, « * AT(*.U *'*M)* 9» -j3,O*i0ATA({) 

I F 1 1 5 * * l *• « < AID, I.T * -»(UNK-l)*lN*i-H/»)*n»ATAm 

IM172»L**. .AN'). .Lj;. WaimssoAT ( lO.iUNA-j } *}*» » 1 71 ) *h)ATA I 
jFfiyi.Lf, .aw). .A'pJ^NSNArin . ah* -ivoiaf >.ta< 

ifibIi.l*. .and, ,ut.22**> M,: ;sMr if a, n. hit-i j ** w* -?on)*i.ata( 

IF (224, lF , .AND. .t,^.^47!'*bSJAT(U.(UINt--l)«l9* -22H *|DATA ( 
Ifc^m.uh. .and. ,uE.f'#)A)*.*<;NnATUA,jLiN'--n«i9* -?47 )*idata( 
IF{5a7,U , • A«0 , ,^«N)^SnI)AT (IS * (L INK-i ) <M9» mj>hk) kJOATA ( 


ATA ( 1 ) 
JDATA(I) 
j DATA ( I ) 
li'ATA ( 1 ) 

* I Data 1 I ) 
*1 ;.ta ( 1 ( 

*1 »AT A ( 1 ) 
*JOATA ( I ) 


OlP0O776 

mm 

Olp56boo 

olpoSsio 

ouPooago 

OLPOOttSo 

OIP008A0 

OLPOOH56 


IF(224,LF. .AND. .L*i.247)"i,HJAT(13.(L N(--l>«19» -22R) * DATA ( ) 
IFC^M.UH. .and. {.l£»S">A>*K«,< 1AT( 6,(L N*.l)»19* -247)* DATA! ) 
lF(2A?,Lf-, .A.O.i,Lf.^«N)K'SN!)AT( S.tL NK-i)*19* -,>H6)*OATA( ) 
IFfpMH.LP. .AND, { ,LF. UiAl^SSUAT ( h, (L Vt-hMo* -?HN)*DATA( ) 

JFIJON.If. .AND.j.CE.^lJNAAOAr! ?, (U NA- )«jy* -ll)4)x DATA( ) 

FtVn.Uf-, .AND. { .uE.3a^)MNS,OAT ( H.(L NE-i)*)9* -3i»3)* DATA( ) 

iFflAl.UF, . A'jD, | .Lf. JOl > "SSOAT { 9,'L nF-})»} 9» -Vfl* l)ATA< ) 

imy.U.I .AN').1.L£.350)PSSUAT l?0, (L NE- 1 ) * i 9* I-3hl) * OATA(I) 

nior inuf 

t D-«»AT t • 1 * .«(5X. J3) ) 

V.WJTF (Ib.bO) ( (MSSUAT (I . J) • 1*1 .NCHAN) . J*1 .209) 

PC An TMF GROUND TN'JTH DOT ( ILF *MLf FTlBFpoi Al* 

NO.S * NUMBER np C»O p TYPES FO>» ThIs GROUND TRUTH IMAGE 

Nr A f J (18.60) NCl.5 

FORMAT U7X. I?) 

Tn I F LOOP NFAOS THE CROP TYPES (NTYPEU)) AND THE NUMBER 
nr faCh type (numheR(D). 

DO 70 laJ.NCLS 

NEAnu«.MO)NrYPF(i) i number < I ) 

F'JPMAT ( )X t A) . IX. 14) 

NO.v CONVERT THE 1 LETTER CROP TYPE ID'S INTO 4 LETTER ID*S 


no ho 1 * 1 .nci s 

if intypf n ) ,K‘) 

IF(NTYPFU) ,ro 

insram^j 

IF (I'iTYNK ( I ) .fi, 
IF (NTYPF ( I ) .!•) 
IF (ivTYKO ( I ) ,*f ; 
IFfMYPt- (I) ,fci} 
I F ( NT Y Pr (I) ,T.» 
IF (NTYPF { T ) ,M) 
IF (NTYPE ( I ) .£■) 
! F (nTYPI- (J) t b'l 

I F (ntypt m ,H) 

It- (IvTYPi- (1) ,70 
I F (lit YRK (I) ,K.| 
I F (IITVRFU ) .K'j 
IF (NTYPf ( ) ) ,F I) 
IF INTYPF (I) .FO 
IKINTYPEin.FO.N) 


.V) NTYPE< )*whfa 

.S) NTYPF ( ) *WHES 
.G) NTYPtf JsWHET 
.H) NTYPF ( )*HAPL 
.H) NTYP(i( )=HAYS 
,D NTYPE( ) sf.ORN 
,.l) NTYPEf )*SORG 
,t) NTYPLt )*SUGR 
. 0 ) NTYPE ( )*POTA 
. 1 ) NTYPtt )=SUNF 
.Y) NTYPf (I)*S 0 Y 8 
.V) NTYPEI l)*VEGE 
.T) NTYPEUIsTIMB 
,«-) :jT ypf ( 1 ) II 
. 7 ) NTYPKIU ATE 
,m) NTYPfcl {)*• ANM 
. t ) NT YMfc { l ) *OHST 
. 0 ) NTYPE(I)=OTHE 
nTypEi DsUOIU 


RFID I i THE DOT M1MHKPS 

Pt AD (IB. 1 00 ) (DDTNUM(I) .1*1.209) 

1 KJRMAT KiX.l1) 

Nov WHITE 0" TO THE OUTPUT UNIT THE NUMHfcP OF CHANNELS INCHAN) .THE 
<*M)F CROP TYOfSI'TLF) .THE CHOP TYPES (NTYPEI I) ) . AND THE * OF 
DOTE FOR THIS C*-OP TYPE (NUMBER ( 1 )) . 


mtm 

MM 

OLP0O940 

OLPOOVbO 

OLP00960 

0LP0Q970 

f)LPOA9rtO 


OLP0O990 

OLPOIOOO 


OLPO 030 
OLP01040 
OLPO 1 050 


Bbpoio/o 

OLPO 1 080 
OLPO 1090 
OLPO) 100 
OLPO 11 10 
OtP01120 
OLPO 11 30 
OLPO 1140 
OLPO 1150 
OLPOl 160 
OLPO it 70 
OLPO 1 1 HO 
OLPOl 190 
OLPO 1200 
OLP01210 
CLP0i220 
OLP01230 

mm 

mm 

OLPO 1 2G0 
OLPO 1290 
OLPO 1300 
OLPO 1310 
OLPO 1320 
OLPO i 330 
OLPO 1340 
OLPO 1350 
OLP01360 
OLPO} 370 
OLPO t 3A0 
OLPO 1390 
OLP01400 

mm 


i. . «. 


L 
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21 


no<sR 

006 R 

0070 

0071 

0072 


0073 
007 S 
007»4 
n07h 
007 T 


01PARS DATE * 00105 

PURDUE / LARS 3031 


11/17/29 


PA< 


110 


"oiKtli:!!"! 

’*•^1 Tf. <17, llfl| NCLS 

^mat i III i "i , ( i',T E 1 1 } ,NIJM,,KW { 1 } * 1x1 ,NCLS) 


120 
r 

r OliTPlJT the spectral vales of the pixels 

Hi 1 in K * I ,>09 

\H l f 3 ?> nAT 1 J * <»< » > * 1 «NCHAN> 

FNO P 


OLP01930 

DLP01440 

OLP01450 

OLP0196O 

OLP0197O 

1900 

[990 
1500 
OLP01510 
OLP01S20 
OLP0I530 
OLPOISOO 
OLP01550 
OLP01560 


tt 



d?/ 


FORTRAN 

IV G levfl 

21 

OLPARS 


OATE = 80105 


11/17/29 

PAGE 

* 

O 

o 

o 

FILE OLPARS 



PURDUE f 

LARS 3031 







COMMON BLOCK /TAPERl) / HAP 

SIZE 4C8 





SYMBOL. 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

location 

1UNIT 

0 

IFPST 

4 

FSCAN 

8 

SAMEND 

C 

SAMINC 

10 

RFAOY 

14 

nscan 

IB 

LINC 

1C 

ID 

20 

DSL 

340 

LHUF 

344 

JPtC 

IRC 

IHYTE 

434 

NrtUFS 

4AC 

FILENO 

480 

Ll'lENO 

4R4 

L1NINC 

4Ba 

nsamp 

48C 

NOCHAN 

4C0 

a 

FORrtT 

4C4 



SUBPROGRAMS CALLED 






symbol 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

TAPHOR 

IS*. 

FLU I NT 

lhB 

LI NERO 

16C 

I8COM* 

170 





SCALAR map 







SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL 

LOCATION 

N 

l °a 

S 

194 

G 

19H 

B 

19C 

H 

IAO 

C 

1 A4 

J 

1AB 

F 

1 AC 

P 

1B0 

L 

184 

Y 

I'M 

V 

1HC 

T 

ICO 

K 

1C4 

z 

C8 

V. 

ICC 

t 

mo 

N 

104 

0 

108 

RHEA 


WHPS 

l r 0 

• HET 

IE4 

RAPL . 

1E8 

HAYS 

1EC 

CORN 

If o 

SOPG 

)P4 

St 1GB 

1FB 

POTA 

1FC 

SUNF 

209 

S0Y8 

204 

v'FGE 

2ns 

T I MB 

• 20C 

SOIL 

210 

RATE 

214 

MANM 

218 

OBST 

21 C 

coin 

220 

OTHE 

224 
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•OPTIONS IN FFFFCT* 10. EBCDIC. SOURCE. NOLIST. DECK. NOLOAD. MAP 
•OPTIONS IN EFFFCT * NAME = OLPARS . LlNECNT = 7S 

•STATISTICS* SOURCE STaTFMENTS = 77. PROGRAM SIZE = 23506 

•STATISTICS* NO DIAGNOSTICS GENERATED 
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